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r'/'id can be Placed in sfrj pej''"t 0"f' rneriiory u.iher'e i + 

■.Mon t iiet c loFjbei-'ed by BhSIC. It accesses code in ROM arid 

•)-j.-i5,|.- i=,-t-rire h aj; "twD Macs 1 o^iS.^ cne -f-O!-" or i aina I RuM si'tci a/'iother- 
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Or'ismaL ROf'- JSR CEll cf'iecks: for cofrima 

i [■=--^ jvhThK error 
J OR Ol-H'*-!- e--.-'a ['..(a-fes e:-'"-'''''r'essi ori 

JSR Ii6ri0 ir+e?er7' >— ard 0=63099 

IMP CT'H0 jur,!!-"' tc GOTO rou'tire mitpi r€'SU !■+: 



Oryrade ROM 



JSR OlJhS 

JSR 116112 
JMP 07EiO 
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LBh 


fFses 


BMI 


*0D 


JSR 


CDFS 


JSR 


CCSB 


JSR 


1)61 J2 


J rip 


CT'BB 


JSR 


CEli 


JSR 


CCF!4 


JSR 


IifcDD 


JMP 


CTfiB 



The +ollouarri< EhSIC pf-cruiran! will load the aboMe : 



100 FOR: J = S26 TO 854 

i 10 rehij y, 

128 POKE J .- '•: 

130 HEKT 

20Gi DhTR 173 .. 02 .■ 242 

2 10 BRiTF-i 32 .■ 24S .. 295 

32 .. 210 .• 214 .. 76 

22£i DhTh 32 .. 17 2&6 . 

32 .. 208 .. 214 .. 76 



43 . 13 

32 .. 133 .. 204 
176 .. 139 
32 .. 164 .. 2014 . 
1 60 -■ 1 99 



Hst: 1.1.1 i+h "the -f o I loi.i.i i rr; 



1 y iJ.-. = t:k:b 

20 2 "TEST" 

30 SVS O'if 2 + 10 



INDENTING PROGRAM TEXT 



by B. Seller 



Many programmers like to Indent their FOR-NEXT loops, to 
enhance readability. Up until now, this has only been 
possible by putting a colon (:) at the start of each line 
to be indented or spaced. For example: 



10 FOR I«l TO 10 


20 


FOR J=l TO 10 


30 


FOR K»l TO 10 


40 




50 


PRINT I,J-K 


60 




70 


NEXT K 


80 


NEXT J 


90 NEXT I 



go even 
instead 



further ! 
of colons, 



This helps readability greatly, but you can 

By substituting SHIFTED (graphic) characters 

and using ." ■- (graphic space graphic) to blank a line, the 

listing would be typed in like this (note: any shifted 

character can be substituted for the ;■>• ) : 



18 FOR 1==^! TO 10 
20 m FOR J=i TO 1.0 
30 m FOR K=l TO 10 

40 m m 

50 ;ll PRINT I. J.K 

60 m m 

70 m NEXT K 
S0 m NEXT J 
90 NEXT I 



This would list like this 



10 FOR 1=1 TO 10 



28 


FOR J=i TO 10 


30 


FOR K=i TO 10 


40 




50 


PRINT I..J..K 


€Q 




70 


NEXT K 


30 


NEXT J 


90 


NEXT I 



The same result is achieved, but the listing is cleaner. 
To use the screen editor, and retain this forniattxnq, list 
the problem lir^es, put a i- after the linet, and edit as 
usual . 



More FST '■quirks" iack KLlis, Toronto, Canada. 

Clear The Screen on your 8K PET and type in the following lines : 

POKE 59^68,14 

10Opl,3 :?"cs." :X=63 :Y=192 

20FoI=i6TOX:I$=Ri(STr(I),l ):?"chrv"TaI)Cn(I+I)"cl"; : 

C-e#l , A$ : ? : ? " chcdcdcd" TaX-I )A$ :NeI 

( cs_ = Clear Screen) 

li ( ch = Cursor Home ) 

( rv == Beverse ) 

( cl = Cursor Left ) 

(Type line #20 above as one continuous line). ( cd = Cursor Down ) 

Surprise ! line 20 is over 100 characters long. Before you try to run 
the above program, check that your listed version reads as follows. If 
not, correct it now by moving the cursor up and correcting the version 
you typed in to match the above : 

Ip 0PENl,3:PKLrIT"cs.":X=63:Y=192 
2^ FOR 1=0 TO Xr 

I$=RIGHT$(3TR$(I),1): 

PBINT" chrv" TAB (I) CHfi$(I+Y) "cl";: 

G£T#1,A$: 

PRINT: 

PRIHP' chcdcdcd" TAB (X-I ) A$ : 

l^IEXT I 
except of course you wont see it spaced out as above. 
Now type : • 

Ru 
The program now displays a character-string on screen lines 1 & 2, in 
P.S'^/EP^E, and as it prints each character, reads it from the screen vdth 
the GET#1 command, and reprints it in reverse order below. 
Try changing line #10 (yes, it's short enough!), so that Y = 6^!- and 
RDlM again. 



IFlesi- Dec 1 si oris 

99'-;; o-f 3.11 cofiipu+er- f'-roEir-a/ns cor!t:-si.in a.+ le-a^^'t one 
d e c i 5 i o n rn ak i n •=? s "fc .9+ e rn e n "t , T i- "i e +' u n d airi e n + 5. 1 d e c: i s i ci n rri si< e f- s 
in PET ERSIC st-e o+ course ^he IF- THEN arid IF -GOTO 

S'ta.'terrien'fcs. H cm ever-., when a. K'ro-iiir-a.m K-'er+orrns a. lot o+ "fces+-s 
o r c o rii p aj-"- i s o fi s .• i +■ c ari to e c o m e '-' I -b.-j u e d u.i i t h I F — T H E" i ■■) 

s+-a.+-emen+s. Follouiiny 3r->=' a -fe'.ii "techni'Hues -for rriakiny 

dec 1 s i ons u." i tf'iou't ' IF'. 

1. In rea. 1— tifiie t-'f o-Hi'BXsiS- where GET is used +o echo keyboard 
iriK'U"t: on "to "the screen.' scrne keys rri-ay need +o he intercepted 
else c-ause undesir-ahle e-f-fects'-.. k."?ys such as RVS;.' DEL.' INST.. 
i~:j_p;;., etc. Rise.' other keys rniiil-it ai.ant to be used 3S- 

•■■ oontr o 1 ■■' i.::ey s tor- i n i t i -a 1 i .z i n-y -f uf^ic;: t i or-(S .' k:ey s such as- 
RETURN.. RVS.. shitted RETURN.. HOME., etc. .Be loui is a. routine 
M.'hich e li ri'!in.a."tes countless IPs'. 

55000 C$ = "e#*-vS*+/><"i!: ■•'CLR-- ••HOME" •RVS ■ 

■RVSOFF" " + CHR*'-: -DEL •■ > + CHR*-; - INST'' > 

+ CHR* •;; •■■ RET ■ > + CHR* ■: ' shRET •- > 
55010 GET T* : IF TS = "" THEN 55010 
55020 B = 

550.30 FOR -J = 1 TO LEH ■::C-*> 
55040 fit- = MID* <C* .. J .' i> 
55050 IF H* = T* THEN E=-.J ■ J=LEH'::C*> 
5506H1 NEXT 

55070 IF E = THEN PRINT T*.: : GOTO 55018 
55080 ON B GOTO bOOOO.. 68100.. 60200.. 60300.. 

60400.. 60500.. 60600.. 6Ci?00.. 608£t0.. 6090G'i.. 
.55090 ON E- 1 GOTO 6 1 800 .611 00 .. 6 1 208 .■ 6 1 308 

6 1 400 .' 6 1 -500 .' 6 1 600 .. 6 1 788 .' 6 1 308 .. 6 1 900 

This routine will PRINT ariy char.aoter not included in C*. 
R repe.at— key could .also foe imr- lemented i.Hith- 

55070 IF E = THEN PRINT T*.. : P0KE515,' 255 
GOTO55010 



2. See i -t you c.ari detef"-mine mi hat decisions the -fo 1 lou.iin-ii tnic 
p r o 3 r BJii s -Bi'- e f I'l aJ- •■: i n -s . 

10 INPUT >i .. V 

20 PRINT '.: X + V - hBS< X - V ;:'>X2 

.30 GOTO 1 



10 INPUT X .' V 

20 PRINT < X + V + hES< X - V ':>'?/ 2 

30 GOTO 10 

M o d i t i c .at i o n s o -i- i; h e b 'o o k> e r o u tines (i.e. u s i r i ii a 

p n f.- _ f .J £ X J I o o K. -Bri d .ar r- .a.y ' .•' -Br- 1 ab 1 e s .' ■ n i i -y l-"i t .to e u s e +' u 1 i r\ 
P f- o if r ■ .a/i'i s p e r -f o ?"■ rn i n -s s o r- 't s^ . 



3, IF B = THEN fl = 32768 
IF E = 1 THEN H = 1.259 
IF B = 2 THEN M = 556.2 
IF B = 3 THEN H = 406 * B 

The sbo'-.-'e could ooritinue -forev'er deiC'encUnn on the 
PoSi:itoi lities -for B. Try the to 1 loiMin-n in direct mode on 
your PET • 

Type '■ B = 2 
Houi type • ? B^ — ti 

PET Luill reply luith because B does not e-Hu-al 0. 

Type ■ ? B = 2 
and- ? E <> 

In both ce^es PET mill return a "-1" because the statements 
are true. This cari be used most etfioiently to replace the 
ai:.o'..'e IF-THEH statements : 

R = -CCB = 0>* 32768 + <B=1>* 1.259 + <B=2>* 556.2 
+ '::B=3::' * 400 * E> 

Since only one uiill be-- true.. the others M.'ill be 
multiplied by zero arid added. The ne-sative si an in -front 
charrses the re-su It b-ack to positive. 

4. This one uses the •"IF-' st-atement but no comp-sr- i son 
operator is used Ci.e. >.. = ■ -C -O :•• . Try the to I loMjin-si 

pro-2'raj'ri. 

10 INPUT X 

20 IF .H' THEN ?"Diri BRfiNCH":GOTO 10 

30 ?"Biri NOT BRANCH" ; GOTO 18 

"DID BiRflNCH" occurs i-f K is ariythin-3 but zero. On mhat 

condition does the to I louiins pro-=iraj-ii brarichi ■ 

10 INPUT K 

20 IF NOT K AND 1 THEN ?"DID BRflNCH" : GOTO 10 

30 ?"DID NOT BRANCH" GOTO 10 
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Disabling the STOP key . 

It's useful to be able to disable the STOP key, so tha 
program cannot be accidentally (or deliberately) stopped 

METHOD A is quick. Any cassette tape activity will rese \, 
the STOP key to its normal function, however. 

METHOD A, Original ROM: 

Disable the STOP key with POKE 537.136 
Restore the STOP key with POKE 537.133 

METHOD A, Upgrade ROM: 

Disable the STOP key with POKE 1^^,49 
Restore the STOP key with POKE l^'^■,^'6 

Method A also disconnects the co ter's clocks (TI and TI$), 
If you need these for timing in • " program, you should 
use me+b' 1 l>, 

METHOD B is slightly more lengthy, but does not disturb 
the clocks. This method prohibits cassette tape activity. 

METHOD B, Original ROM: 

100 R$="20>:??:9??8=0902i|-<88>6" 
110 FOR 1=1 TO LEN(R$)/2 
120 POKE I+900,ASC(MID$(R$,I*2-1))*16 + 
ASC(MID$(R$,I*2))-816 : NEXT I 

After the above has run: 

Disable the STOP key with POKE 538,3 

Restore the STOP key with POKE 538,230 

METHOD B, Upgrade ROM: 

100 R$="20>:??:9??8=9;00^31>6" 
110 FOR 1=1 TO LEN(R$)/2 
120 POKE I+844,ASC(MID$(R$,I*2-l))*l6 + 
ASC(MID$(R$,I*2))-816 : NEXT I 
After the above has run: 

Disable the STOP key with POKE lkk,77 '• POKE 1^5,3 
Restore the STOP k^^ ,with POKE 145.230 : POKE 144,46 

How they work: Both methods change the interrupt program 
which takes care of the keyboard, cursor, clocks and 
the stop key. 

Method A simply skips the clock update and the stop key test. 

Method B builds a small program into the second cassette 
buffer which performs the clock update and stop key test, 
but then nullifies the result of this test. 

The little program in method B is contained in R$ in 
"pig hexadecimal" format. Machine language programmers 
would read this as: 20 EA FF (do clock update and stop 
key test) A9 FF 8D 9B 00 (cancel stop test result) 
4C 31 E6 (continue with keyboard service, etc.) 
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A Fast Sort. Jim Butterfield, Toronto 

When you need to sort a large array, sorting speed becomes 
important. Most simple sorts become very slow, since twice 
as many items will take four times as long to sort. 

This fast sort is called "selective replacement"; it's 
classified as a tree type sort. It needs an index array, 
called I(J) here, which is twice the size. of the items to 
be sorted. Memory can be saved, if needed, by making it 
an integer type array. 

100 DIM 1(200), N$(100), A$(100) 

110 REM SIMPLE INPUT ROUTINE - WRITE YOUR CWN FOR, FILES 

120 INPUT "HOW mm ITEMS"; N 

130 FOR J»0 TO N-1 

lUO INPUT "NAME";N$(J) 

150 INPUT "ADDRESS ";A|( J) 

160 REM INPUT OTHER DATA HERE IF DESIRED 

170 NEXT J 

200 REM SORT STARTS HERE - INITIAL SCAN FINDS FIRST NUMBER 

210 B-N-1 : F(M J'-O TO B : I(J)»J : NEXT J 

220 FOR J=0 TO N*2-3 STEP 2 

230 B»B+1 : Il-I(J) i I2-I(J+1) 

2U0 GOSUB 700 : REM PERFORM COMPARISON 

250 I(B)-I : NEXT J 

300 REM MAIN LOOP - OUTPUT NEXT VALUE 

310 X-X-1 : C-I(B) : IF C<0 GOTO 800 

320 REM OUTPUT ITEM TO SCREEN, PRINTER, OR FIIE AS DESIRED 

330 PRINT J]$(C),A$(C) 

3U0 I(C)-X 

350 REM INNER LOOP TO FIND NEXT ITEM 

360 C^=C/2 I J=C56*2 : C-N-KJ^ : IF C> B GOTO 300 

370 I1»I(J) : I2-I(J+1) 

380 IF IKO THEN I-I2 : GOTO UlO 

390 IF I2<0 THEN 1=11 : GOTO UlO 

liOO GOSUB 700 : REM FERFC»M COMPARISON 

UlO I(C)»I : GOTO 350 

700 HEM COMPARE TWO ITEMS - MODIFY" TO FIT APPLICATION 

710 I-Il ! IF NS(I2)<N$(I1) THEN I-I2 

720 RETURN 

800 STOP : HEM END OF SORT 

As you get the sorted itew at line 320, it's best to output it 
(or process it) en the spot. If some reason exists for conssleting 
the sort before going on to other processing, you'll find that 
index array I(J) contains information about the proper order for 
the data. 



PET CRT Fix 



Trarisaot-or i.ui"th the -fo I lowinii -fix 



kchuset+s ha 
-or a 1 1 PET 



? i.i.iri't+en 
jore-eris ... 



th. 



...I jus't disooMered +ha."t the bri-itht s^^'ot on 
POUjer'"~doi.Mf"i cBt'\ be corrected '-.'ery ea^si ly. The 

bri sihtness S'Ot K'T-c-.-' i des a '■.■'aj--iaJ::i le aj'i'!Ourit ot diri'iminy 
'..•'O lta-3e to the tube. Most PETs h-aMe this turned ur- 
t o ri'i a.x i m u m . The c af:' ac iter fh at stores: t ri i s c h Br- ej e- 
doesn't hold it unti 1 the electron aun cools down. 
-l-|.-,g. result is a rriajKirriurii brightness sPot iMith no 
det lection i.Mhen PET is turned ot-f,. The cure is '-.-'ery 
sirfif:' le ! Rfi electrolytic c ar-' ac i tor ot 28 to 190 u+'d 
at 30 to 50 MO Its added across the bri-yhtness i-^ot < 
looking trorn the rear. .. positi ve lead to the lett 
side arid ne-natioe to the ri-sht side ot the thr-ee 
terminals in a row ;■ . This will corrir lete ly e Imiinate 
the darser 0+ burn ins a hole in the screen. .... 



PI Modi ti cat ion 



PET oujners present ly usmli the Centronics M icrof^'r inter- 
P 1 i.M ill be interested i n the -f o 1 1 o w i n g h ar- d w sr- e n 1 o d i t i c at i o n 
sent in by Rick Hottmari ot Centronics m f1ississa.u£ia. It 

concerns the extra. line teeds that occur uihen LISTin-Ei 
f:-rc''Sirajiis on tlie PI. 

To supf^'ress extra line teeds ori the PI '■ 

f\. Locate IC 1 -D 

B. Locate IC 2-E 

C. Cut PCB trace trofii 1 -D Pin 5 to 2-E pin 1 




■Give Me All Your $10s, $20s and 
$50s.' 




'Looks Like a Good Pro- 
gram. Climb In, Everybody.' 



frcm Conputerworld Magazine 



